Lit Review Figure

Read data in

fig_data <- read.csv('/Users/zeynepenkavi/Downloads/lit_review_figure.csv')

Static plot

fig_data %>%
  mutate(dv = factor(dv, levels = dv[order(task)]),
         days_cutoff = ifelse(days < 60, days, 120),
         days = paste(days, '; reference:', reference)) %>%
ggplot(aes(x = dv, y = retest_reliability, label=days))+
  geom_point(aes(color = task, size=sample_size, shape = type, alpha = days_cutoff))+
  coord_flip()+
  theme_bw()

Interactive plot

ggplotly(fig_data %>%
  mutate(dv = factor(dv, levels = dv[order(task)]),
         days_cutoff = ifelse(days < 60, days, 120),
         days = paste(days, '; reference:', reference)) %>%
ggplot(aes(x = dv, y = retest_reliability, label=days))+
  geom_point(aes(color = task, size=sample_size, shape = type, alpha = days_cutoff))+
  coord_flip()+
  theme_bw()+
  theme(legend.position="none"),
tooltip = c('sample_size', 'type', 'dv', 'retest_reliability', 'days')) %>%
  layout(showlegend=FALSE)